/* Device Online Update Generating Script */ Open("Dev","Ram:Dev-OnlineUpdate","R") Open("HTML","Ram:Dev-OnlineUpdate.html","W") writeln("HTML",'') writeln("HTML",'') writeln("HTML",'DevGuide Update Form') writeln("HTML",'

 

 

') writeln("HTML",'
Welcome to the Online DevGuide Update Form
') writeln("HTML",'Please go online, select a server for download and push the Search-Button.
Please select an Aminet-Server:
 
') i=0 Do While 1 zeile=readln("Dev") If Eof("Dev") then leave i=i+1 writeln("HTML",'') End writeln("HTML",'') writeln("HTML",'') writeln("HTML",'') Open("lang","ENV:language","R") language=readln("lang") Close("lang") If language="deutsch" then writeln("HTML",'') else writeln("HTML",'') writeln("HTML",'

') writeln("HTML",'

DevGuide is © 1996-1998 by Heiko Schröder
DevSearch is © 1998 by Peter Teich, docu:media made with Perl 5.004

') Close("Dev") Close("HTML") Exit